home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / besupl.zip / BEON.BAS < prev    next >
BASIC Source File  |  1989-04-07  |  2KB  |  43 lines
  1. 100 COLOR 12,0: CLS: NAM$= " ": APP$= " ": DAT1$= " ": TIM1$= " ": TYP1$= "ON"
  2. 105 ALY$= "        ": EMY$= "                ": RAT1= 0
  3. 110 LOCATE 3,15: PRINT "* * * B e g i n   L o g o n   R o u t i n e * * *"
  4. 115 TIM2$= TIME$: DAT2$= DATE$
  5. 120 COLOR 12,1
  6. 125 LOCATE 6,10: PRINT "Logon ";TIME$: LOCATE 6,55: PRINT "Date: ";DATE$
  7. 130 COLOR 12,0
  8. 135 LIN1$= STRING$(50,CHR$(205)): LIN2$= STRING$(40,CHR$(196)): LOCATE 8,1
  9. 140 PRINT TAB(15);CHR$(201);TAB(16);LIN1$;TAB(66);CHR$(187)
  10. 145 FOR I=1 TO 7
  11. 150    PRINT TAB(15);CHR$(186);TAB(66);CHR$(186)
  12. 155 NEXT I
  13. 160 PRINT TAB(15);CHR$(200);TAB(16);LIN1$;TAB(66);CHR$(188)      
  14. 165 COLOR 15,0: LOCATE 8,35: PRINT "Logon Sequence": COLOR 10,0
  15. 170 '
  16. 175 LOCATE 10,17: PRINT "Captain: ": LOCATE 12,17: PRINT "Senario: "
  17. 180 LOCATE 21,2: PRINT "Begin: Logon/Logoff Utility...Ver. 1.0"  
  18. 185 LOCATE 22,2: PRINT "Developed by:  Norman Enlow, Jr. "
  19. 190 LOCATE 23,2: PRINT "April 06, 1989"                          
  20. 195 '
  21. 200 COLOR 11,0: LOCATE 17,35: PRINT "Enter your name!"
  22. 205 BEEP: LOCATE 10,26: INPUT NAM$
  23. 210 IF NAM$= "" THEN GOSUB 270
  24. 215 LOCATE 17,30: PRINT "LIST the application!"
  25. 220 BEEP: LOCATE 12,26: INPUT APP$
  26. 225 IF APP$= "" THEN GOSUB 290
  27. 230 BEEP: LOCATE 14, 17: INPUT "Enter designated ALLY...:";ALY$
  28. 235 BEEP: LOCATE 15, 17: INPUT "Enter designated opponent..:";EMY$
  29. 240 COLOR 14,0
  30. 245 LOCATE 17,20: INPUT "Press the ENTER key to continue..........";AN$
  31. 250 OPEN "C:\GAMES\BEGIN\ENTRY.DAT" FOR OUTPUT AS #1
  32. 255    WRITE #1, NAM$, APP$, ALY$, EMY$, RAT1, DATE$, TIME$, TYP1$
  33. 260 CLOSE #1
  34. 265 SYSTEM
  35. 270 '
  36. 275 BEEP
  37. 280 LOCATE 17,30: PRINT "You must ENTER your name!!!"
  38. 285 RETURN 205
  39. 290 '
  40. 295 LOCATE 17,25: PRINT "You must LIST an application!!!"
  41. 300 BEEP
  42. 305 RETURN 220
  43.